home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
DISCTRLC.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-11
|
640b
|
30 lines
SUB ToggleBreak (Sw%) STATIC
'Purpose : To toggle the switching of the use of the CTRL-C, CTRL-Break key
'Input : Sw% = 0 (false) to turn off CTRL-Break, Sw <> 0 (true) turns it on
'Returns : none
DEF SEG = 0
IF DimFlg = 0 THEN
DimFlg = -1
DIM OldSeg%(4)
FOR I = &H6C TO &H6F
OldSeg%(I - &H6C) = PEEK(I)
NEXT I
END IF
IF Sw% = 0 THEN
POKE &H6C, &H53
POKE &H6D, &HFF
POKE &H6E, &H0
POKE &H6F, &HF0
ELSE
' to reset:
FOR I = &H6C TO &H6F
POKE I, OldSeg%(I - &H6C)
NEXT
END IF
DEF SEG
END SUB